home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD003b.dsk / HAPPY.BIRTHDAY.bas < prev    next >
BASIC Source File  |  2003-06-12  |  7KB  |  231 lines
  1. 0  REM     HAPPY BIRTHDAY!
  2. 10  ONERR  GOTO 20000
  3. 15  GOSUB 1660
  4. 20 CB = 15:TITLE = 1:Z = CB: GOSUB 210:Z = 0:CB = 0: RESTORE 
  5. 100  REM 
  6. 110  REM 
  7. 114  REM     +-----------------+
  8. 115  REM     I   USER  INPUT   I
  9. 116  REM     +-----------------+
  10. 117  REM 
  11. 118  REM 
  12. 120  HOME : CALL  -198
  13. 130  PRINT : INPUT "ENTER FIRST NAME:";NAME$
  14. 140  PRINT 
  15. 200  GOTO 220
  16. 201  REM 
  17. 202  REM 
  18. 203  REM 
  19. 204  REM     +-----------------+
  20. 205  REM     I    DRAW CAKE    I
  21. 206  REM     +-----------------+
  22. 207  REM 
  23. 208  REM 
  24. 209  REM 
  25. 210  POKE  -16368,0: GR : HOME 
  26. 220  COLOR= CB: FOR Y = 0 TO 22: HLIN 0,39 AT Y: NEXT 
  27. 230  COLOR= 8: FOR Y = 23 TO 39: HLIN 0,39 AT Y: NEXT 
  28. 240  REM DRAW PLATE
  29. 250  COLOR= 7
  30. 260  HLIN 12,26 AT 39: HLIN 10,28 AT 38: HLIN 8,30 AT 37: HLIN 6,32 AT 36: HLIN 5,33 AT 35: HLIN 4,34 AT 34: HLIN 3,35 AT 33: HLIN 3,35 AT 32: HLIN 2,36 AT 31: HLIN 2,36 AT 30: HLIN 2,36 AT 29: HLIN 3,35 AT 28: HLIN 3,35 AT 27: HLIN 4,34 AT 26
  31. 400  REM DRAW CAKE
  32. 410  COLOR= 11
  33. 420  VLIN 16,32 AT 4: VLIN 17,33 AT 5: VLIN 18,34 AT 6: VLIN 18,35 AT 7: VLIN 19,36 AT 8: VLIN 19,36 AT 9: VLIN 19,37 AT 10: VLIN 20,37 AT 11: VLIN 20,38 AT 12: VLIN 20,38 AT 13: VLIN 20,38 AT 14
  34. 550  FOR X = 15 TO 22: VLIN 21,38 AT X: NEXT 
  35. 590  VLIN 20,38 AT 23: VLIN 20,38 AT 24: VLIN 20,38 AT 25: VLIN 20,38 AT 26: VLIN 19,37 AT 27: VLIN 19,36 AT 28: VLIN 19,36 AT 29: VLIN 18,35 AT 30: VLIN 18,35 AT 31: VLIN 17,34 AT 32: VLIN 16,34 AT 33
  36. 700  REM ICING
  37. 710  COLOR= 14
  38. 720  HLIN 5,32 AT 15: HLIN 6,31 AT 14: HLIN 8,29 AT 13: HLIN 11,26 AT 12: HLIN 15,22 AT 11: HLIN 5,32 AT 16: HLIN 6,31 AT 17: HLIN 8,29 AT 18: HLIN 11,26 AT 19: HLIN 15,22 AT 20
  39. 820  REM CANDLES
  40. 830  COLOR= 13
  41. 840  VLIN 8,17 AT 10: VLIN 6,14 AT 12: VLIN 7,16 AT 14: VLIN 5,13 AT 16: VLIN 9,18 AT 18: VLIN 8,17 AT 20: VLIN 6,14 AT 22: VLIN 9,18 AT 24: VLIN 8,17 AT 26: VLIN 7,15 AT 28
  42. 940  IF (TITLE)  THEN 1060
  43. 941  IF CB = 31  THEN  RETURN 
  44. 942  REM 
  45. 943  REM 
  46. 944  REM    +-----------------+
  47. 946  REM    I  LIGHT CANDLES  I
  48. 947  REM    +-----------------+
  49. 948  REM 
  50. 949  REM 
  51. 1060  COLOR= 9
  52. 1070  FOR CA = 0 TO 9: READ X,Y
  53. 1080 C =  INT(2 * RND(1))
  54. 1090  PLOT X,Y: IF C  THEN  PLOT X,Y -1
  55. 1100  NEXT : HOME : IF   NOT (TITLE)  THEN  PRINT 
  56. 1110  IF (TITLE)  THEN A$ = "HAPPY BIRTHDAY!": GOSUB 1640:A$ = "BY JIM GANZ": GOSUB 1640:A$ = "A LOW-RES ANIMATED BIRTHDAY CAKE": GOSUB 1640: FLASH : HTAB 9: PRINT " PRESS ANY KEY TO BEGIN ";: NORMAL : GOTO 1140
  57. 1120 A$ = "LET'S ALL SING " + CHR$(34) +"HAPPY BIRTHDAY" + CHR$(34): GOSUB 1640:A$ = "TO " +NAME$ +"!": GOSUB 1640
  58. 1130  FLASH : HTAB 8: PRINT " PRESS ANY KEY TO SING!! ";: NORMAL 
  59. 1132  REM 
  60. 1133  REM 
  61. 1134  REM    +-----------------+
  62. 1135  REM    I FLICKER FLAMES, I
  63. 1136  REM    I   WAIT FOR KEY  I
  64. 1137  REM    +-----------------+
  65. 1138  REM 
  66. 1139  REM 
  67. 1140  POKE  -16368,0
  68. 1150  RESTORE : FOR T = 0 TO 9: READ X,Y
  69. 1160  IF  SCRN( X,Y -1) = 9  THEN  COLOR= Z: PLOT X,Y -1: GOTO 1180
  70. 1170  COLOR= 9: PLOT X,Y -1
  71. 1180  NEXT 
  72. 1190  IF  PEEK( -16384) >128  THEN 1210
  73. 1200  GOTO 1150
  74. 1210  POKE  -16368,0: HOME 
  75. 1215  IF BLOW  THEN 1340
  76. 1220  IF TI  THEN TI = 0: RETURN 
  77. 1221  REM 
  78. 1222  REM 
  79. 1223  REM 
  80. 1224  REM     +---------------+
  81. 1225  REM     I   PLAY SONG   I
  82. 1226  REM     +---------------+
  83. 1227  REM 
  84. 1228  REM 
  85. 1229  REM 
  86. 1230  FOR TM = 0 TO 24
  87. 1240  READ A$,A,B: IF A$ = ""  THEN 1280
  88. 1250  IF A$ = "PAUSE"  THEN  FOR PA = 0 TO 49: NEXT : GOTO 1240
  89. 1260  IF A$ = "X"  THEN A$ = NAME$ +",": GOSUB 1640
  90. 1270  HOME : VTAB 22: GOSUB 1640
  91. 1280  POKE 768,A: POKE 769,B: CALL 770
  92. 1290  NEXT 
  93. 1292  REM 
  94. 1293  REM 
  95. 1294  REM     +--------------+
  96. 1295  REM     I   BLOW OUT   I
  97. 1296  REM     I   CANDLES!   I
  98. 1297  REM     +--------------+
  99. 1298  REM 
  100. 1299  REM 
  101. 1300  PRINT 
  102. 1310 A$ = "NOW MAKE A WISH & PRESS ANY KEY": GOSUB 1640
  103. 1320 A$ = "TO BLOW OUT THE CANDLES, " +NAME$ +"!": GOSUB 1640
  104. 1330 BLOW = 1: GOTO 1140
  105. 1340  COLOR= 0: RESTORE : FOR TM = 0 TO 9
  106. 1350  READ X,Y: VLIN Y,Y -1 AT X: FOR PA = 1 TO 50 * RND(1): NEXT : NEXT 
  107. 1360  FOR PA = 0 TO 999: NEXT 
  108. 1370  HOME : PRINT : INVERSE 
  109. 1380 A$ = " YOU GOT THEM ALL! ": GOSUB 1640
  110. 1390 A$ = " YOUR WISH WILL COME TRUE!!! ": GOSUB 1640
  111. 1400  NORMAL : FOR PAUSE = 0 TO 999: NEXT 
  112. 1410  GOTO 10000
  113. 1422  REM 
  114. 1423  REM 
  115. 1424  REM    +-----------------+
  116. 1425  REM    I DATA FOR CANDLE I
  117. 1426  REM    I POSITIONS,MUSIC I
  118. 1427  REM    +-----------------+
  119. 1428  REM 
  120. 1429  REM 
  121. 1430  DATA 24,8,12,5,10,7,28,6,20,7,26,7,18,8,22,5,14,6,16,4
  122. 1440  DATA "HAPPY",200,100,"",200,100,"BIRTHDAY",180,175
  123. 1450  DATA "",200,175,"TO",150,175
  124. 1460  DATA "YOU!",160,255
  125. 1470  DATA PAUSE,0,0
  126. 1480  DATA "HAPPY",200,100,"",200,100,"BIRTHDAY",180,175
  127. 1490  DATA "",200,175,"TO",135,175
  128. 1500  DATA "YOU!",150,255
  129. 1510  DATA PAUSE,0,0
  130. 1520  DATA "HAPPY",200,100,"",200,100
  131. 1530  DATA "BIRTHDAY",100,175
  132. 1540  DATA "",120,200
  133. 1550  DATA "DEAR",150,200
  134. 1560  DATA "X",160,200
  135. 1570  DATA "",180,200
  136. 1580  DATA "HAPPY",110,100,"",110,100
  137. 1590  DATA "BIRTHDAY",118,200
  138. 1600  DATA "",149,200
  139. 1610  DATA "TO",134,200
  140. 1620  DATA "YOU!",149,255
  141. 1631  REM 
  142. 1632  REM 
  143. 1633  REM 
  144. 1634  REM    +----------------+
  145. 1635  REM    I   CENTER  A$   I
  146. 1636  REM    +----------------+
  147. 1637  REM 
  148. 1638  REM 
  149. 1639  REM 
  150. 1640  HTAB 20 - LEN(A$)/2 +1: PRINT A$: RETURN 
  151. 1652  REM 
  152. 1653  REM 
  153. 1654  REM    +---------------+
  154. 1655  REM    I   POKE TONE   I
  155. 1656  REM    I    ROUTINE    I
  156. 1657  REM    +---------------+
  157. 1658  REM 
  158. 1659  REM 
  159. 1660  POKE 770,173: POKE 771,48: POKE 772,192
  160. 1670  POKE 773,136: POKE 774,208: POKE 775,5
  161. 1680  POKE 776,206: POKE 777,1: POKE 778,3
  162. 1690  POKE 779,240: POKE 780,9: POKE 781,202
  163. 1700  POKE 782,208: POKE 783,245: POKE 784,174
  164. 1710  POKE 785,0: POKE 786,3: POKE 787,76
  165. 1720  POKE 788,2: POKE 789,3: POKE 790,96
  166. 1730  RETURN 
  167. 1741  REM 
  168. 1742  REM 
  169. 1743  REM 
  170. 1744  REM    +-----------------+
  171. 1745  REM    I  CUT THE CAKE!  I
  172. 1746  REM    +-----------------+
  173. 1747  REM 
  174. 1748  REM 
  175. 1749  REM 
  176. 10000 CB = 31: GOSUB 220: COLOR= 15
  177. 10020  FOR Y = 20 TO 38
  178. 10030  HLIN 14,24 AT Y
  179. 10040  NEXT 
  180. 10050 X1 = 15:X2 = 23
  181. 10060  FOR Y = 19 TO 15  STEP  -1
  182. 10065  COLOR= 15
  183. 10070  HLIN X1,X2 AT Y
  184. 10075  COLOR= 7
  185. 10080  HLIN X1,X2 AT Y +19
  186. 10090 X1 = X1 +1:X2 = X2 -1
  187. 10100  NEXT 
  188. 10101  COLOR= 11
  189. 10102 X1 = 14:X2 = 24
  190. 10103  FOR Y = 29 TO 24  STEP  -1
  191. 10104  PLOT X1,Y: PLOT X2,Y
  192. 10105 X1 = X1 +1:X2 = X2 -1
  193. 10106  NEXT Y
  194. 10107  COLOR= 14: VLIN 11,15 AT 18: VLIN 11,15 AT 20
  195. 10108  COLOR= 15: VLIN 5,10 AT 18: VLIN 5,10 AT 20
  196. 10110  HOME : PRINT 
  197. 10120  FLASH 
  198. 10130 A$ = " HAVE A PIECE! "
  199. 10140  GOSUB 1640
  200. 10150  POKE 34,22: NORMAL : END 
  201. 20000  TEXT : HOME : TEXT : END 
  202. 30000  REM 
  203. 30001  REM 
  204. 30002  REM 
  205. 30003  REM +-------------------+
  206. 30004  REM I  HAPPY BIRTHDAY!  I
  207. 30005  REM I    BY JIM GANZ    I
  208. 30007  REM I WEST HARTFORD, CT I
  209. 30009  REM +-------------------+
  210. 30011  REM 
  211. 30012  REM 
  212. 30013  REM          -*-
  213. 30014  REM 
  214. 30015  REM           A
  215. 30016  REM        LOW-RES
  216. 30017  REM     BIRTHDAY CAKE
  217. 30018  REM 
  218. 30019  REM          -*-
  219. 30020  REM 
  220. 30021  REM       CLASSIFIED
  221. 30022  REM    -PUBLIC  DOMAIN-
  222. 30023  REM       DEC., 1981
  223. 30024  REM 
  224. 30025  REM PLEASE RETAIN LINES
  225. 30026  REM 30000-30032
  226. 30027  REM IN ALL COPIES.
  227. 30028  REM 
  228. 30029  REM         THANK YOU!!
  229. 30030  REM 
  230. 30031  REM 
  231. 30032  REM ---VERSION 1.3